home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 18 / CU Amiga Magazine's Super CD-ROM 18 (1997)(EMAP Images)(GB)[!][issue 1998-01].iso / CUCD / Utilities / Laplace / Projects / physic_PI_15 < prev    next >
Text File  |  1996-07-06  |  550b  |  45 lines
  1. #LAPLACE
  2. #USEFLOAT=FALSE
  3. #SIMPLIFY=TRUE
  4. #ERRBND=15
  5. #EXPDSP=5
  6. #PREC=8
  7. #F1=f(x)=
  8. #F2=g(x)=
  9. #F3=h(x)=f(x)/g(x)
  10. #F4=matrix(
  11. #F5=vector(
  12. #F6=diff(f)
  13. #F7=diff(g)
  14. #F8=diff(h)
  15. #F9=taylor(f,0)
  16. #F10=taylor(f,1)
  17. #F11=%(run type s:startup-sequence)
  18. #F12=
  19. #F13=
  20. #F14=
  21. #F15=
  22. #F16=
  23. #F17=
  24. #F18=
  25. #F19=
  26. #F20=
  27. m_K=0.1185±0.0005
  28. r_K=18.2e-3±0.1e-3
  29. J=1/2*m_K*r_K^2
  30. l_1=0.810±0.001
  31. T=6.504±0.004
  32. R=0.199e-3±0.005e-3/2
  33. G=eval(8*pi*J*l_1/T^2/R^4)
  34.  
  35. a=(1.24e-3±1e-4 + 1.20e-3±1e-4)/2
  36. a=inv(a)
  37. g=9.81
  38. l_2=0.73±0.002
  39. d=R*2
  40. E=eval(4*g*l_2/pi/d^2 * a)
  41.  
  42. eval(E/(2*G)-1)
  43. E/(2*G)-1
  44.  
  45.